home *** CD-ROM | disk | FTP | other *** search
/ Hardcore Visual Basic 5.0 (2nd Edition) / Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso / Code / Goodies / Wiper / Wiper.bas < prev    next >
BASIC Source File  |  1996-11-21  |  435b  |  9 lines
  1. Attribute VB_Name = "WiperBAS"
  2. Declare Function WritePrivateProfileString& Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal FileName$)
  3. Sub AddToINI()
  4.   'this code adds an entry to the file VBADDIN.INI
  5.   'this code should be executed from the immediate window
  6.   debug.print WritePrivateProfileString("Add-Ins32", "AddInDebugWiper.Connect", "0", "VBADDIN.INI")
  7. End Sub
  8.  
  9.